home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Games / Misc / HereticII-Upd / Update_Installer < prev    next >
Text File  |  2000-01-01  |  7KB  |  233 lines
  1. (set #ver (/ @installer-version 65536))
  2. (set #inst1 "Heretic_IIA")
  3. (if (>= #ver 44)
  4.     (
  5.     (effect "lower_right" "radial" $C85037 $000000)
  6.     (showmedia "symbol" "Heretic_IIA:Installer Data/backdrop.iff" "center" "none" 0)
  7.     )
  8. )
  9.  
  10. (if (< #ver 43)
  11.     (
  12.     (exit "Your Installer is too old. Get a new version from Aminet" (quiet))
  13.     )
  14. )
  15.  
  16. (if (= @language "deutsch")
  17. (
  18.  (set #choice-yes "\x1B[2pJa")
  19.  (set #choice-no "Nein")
  20.  (set #welcome-prompt (cat
  21.     "Willkommen zum Heretic 2 Update Installations-Programm. Es wird Sie schrittweise "
  22.     "durch die Installation führen. Wenn Sie Probleme bekommen, können Sie durch "
  23.     "den Hilfe-Knopf weitere Informationen erhalten.\n"
  24.     "Bitte wählen Sie nun den Installations-Modus."
  25.  ))
  26.     (set #licence-msg (cat
  27.     "Bitte bestätigen Sie, daß sie die Lizenz gelesen und verstanden haben "
  28.     "und sie akzeptieren."
  29.     ))
  30.     (set #licence-accept "\x1B[2pIch stimme der Lizenz zu")
  31.     (set #licence-reject "Ich stimme der Lizenz nicht zu")
  32.     (set #not-installed "Heretic II muss installiert sein, um das Update zu installieren.")
  33.     (set #extract-base "Programm-Dateien werden auf die Festplatte kopiert...")
  34.     (set #finish-msg "Das Heretic II Update wurde in der Schublade %s erfolgreich installiert\n")
  35.     (set #see-readme "\x1B[2pEinen Blick auf die LIESMICH-Datei werfen")
  36.     (set #register-msg (cat
  37.       "Um die Installation abzuschließen werden Sie jetzt nach Ihrer Serien-Nummer und "
  38.       "Benutzer-Informationen wie Namen und Anschrift gefragt. Sie müssen dies ausfüllen "
  39.       "um den Kundendienst in Anspruch zu nehmen. Geben Sie die Seriennummer sehr sorgfältig "
  40.       "und genau so wie abgedruckt ein (einschließlich der Bindestriche), da die Installation "
  41.       "ansonsten nicht funktioniert."
  42.     ))
  43.  
  44.  (set #not-successful "Die Heretic II Installation war nicht erfolgreich. Bitte wiederholen Sie diese, bevor Sie das Update installieren.")
  45.  (set #copy-docs "Die Dokumentation ins HereticII Directory installieren ?")
  46.  (set #copying-docs "Kopiere Update-Dokumentation...")
  47. )
  48. (
  49.  (set #choice-yes "\x1B[2pYes")
  50.  (set #choice-no "No")
  51.  (set #welcome-prompt (cat
  52.     "Welcome to the Heretic 2 Update Installation Program. This Utility "
  53.     "will guide you through the Installation in a step-by-step "
  54.     "process. At any time, "
  55.     "if you're stuck, you can press the help button to get more detailed "
  56.     "information. \n"
  57.     "Please indicate your level of expertise."
  58.  ))
  59.     (set #licence-msg (cat
  60.     "Please confirm that you have read and understood the licence agreement "
  61.     "and that you accept it"
  62.     ))
  63.     (set #licence-accept "\x1B[2pI have read and accepted the licence agreement")
  64.     (set #licence-reject "I do not accept the licence agreement")
  65.     (set #copy-movies (cat
  66.     "Since there is enough free space on your partition, you might want to also copy "
  67.     "the movie files to your harddisk, although this is not really required if you have "
  68.     "a 4x or faster CD-Rom drive.\nDo you want to install the movie files(approx. 100 MB)?"
  69.     ))
  70.     (set #not-installed "Heretic II needs to be installed to install the update.")
  71.     (set #extract-base "Copying program files to your harddisk...")
  72.     (set #finish-msg "The Heretic II update has been installed to %s\n on your system")
  73.     (set #see-readme "\x1B[2pHave a look at the README-File")
  74.     (set #register-msg (cat
  75.     "To conclude the installation process you will be asked for your serial number and "
  76.     "user information, like name, address, city and country. You must fill them "
  77.     "in, otherwise we will not be able to answer your support questions. "
  78.     "Be very careful to type in the serial number as it is printed, including "
  79.     "dashes, otherwise your installation will not work."
  80.     ))
  81.  (set #not-successful "Heretic II Installation was unsuccessfull. Please reinstall the game before installing the update.")
  82.  (set #copy-docs "Do you want to install the documentation into the Heretic II Directory ?")
  83.  (set #copying-docs "Copying Update-Documentation...")
  84. )
  85. )
  86.  
  87. (procedure P_BuildCommandline arg1
  88.     (set #cmdline
  89.     (cat
  90.         "c/hUnpackH2 -archive \""
  91.         (arg1)
  92.         "\" -dest \""
  93.         (getenv "HereticII/InstallationPath")
  94.         "\""
  95.     )
  96.     )
  97. )
  98.  
  99. (procedure P_DoRegister
  100.     (message #register-msg)
  101.     (set #cmdline (cat
  102.     "Heretic_IIA:C/RegisterGUI \""
  103.     (tackon @default-dest "quake2.dll")
  104.     "\" "
  105.     ))
  106.     (set #retval
  107.     (run #cmdline
  108.     (help @run-help)
  109.     ))
  110.     (if (= #retval 10)
  111.     (exit "Internal Error during registering. Please contact tech suport" (quiet))
  112.     )
  113.     (if (= #retval 20)
  114.     (exit #user-abort (quiet))
  115.     )
  116. )
  117.  
  118. (procedure P_AskDisk 
  119.     (set #curvol #inst1)
  120.     (set #curvol (cat #curvol ":"))
  121. )
  122.  
  123. (welcome #welcome-prompt)
  124. (P_AskDisk)
  125. (complete 0)
  126. (set #flag (exists "ENV:HereticII/InstallationPath"))
  127. (if (= #flag 1)
  128.     (
  129.     (set @default-dest (getenv "HereticII/InstallationPath"))
  130.     (if (exists (tackon @default-dest "installer-cookie"))
  131.     (exit #not-successful (quiet))
  132.   )
  133.     )
  134.     (
  135.     (exit #not-installed (quiet))
  136.     )        
  137. )
  138.  
  139. (textfile
  140.     (dest (tackon @default-dest "update-cookie"))
  141.     (append "I am a cookie. Bite me")
  142. )
  143.  
  144.  
  145. (if (>= #ver 44)
  146. (showmedia 'license' 'LICENSE' 'upper_right' 'medium' 1 'wordwrap')
  147. (run "sys:Utilities/Multiview LICENSE")
  148. )
  149.  
  150. (set #flag
  151.     (askchoice
  152.         (prompt #licence-msg)
  153.         (help @askchoice-help)
  154.         (default 0)
  155.         (choices #licence-accept #licence-reject)
  156.     )
  157.     )
  158.     (if (= #flag 1) (exit (quiet)))
  159.  
  160. (if (>= #ver 44) (closemedia license))
  161.  
  162. (set #dest-dir @default-dir)
  163.  
  164. (complete 20)
  165.  
  166. (P_BuildCommandLine "update.hpa")
  167. (working #extract-base)
  168. (set #status
  169.     (run #cmdline
  170.         (help @run-help)
  171.     )
  172. )
  173.  
  174. (if (= #status 2)
  175.     (
  176.     (exit #user-abort (quiet))
  177.     )
  178. )
  179. (complete 50)
  180. (P_DoRegister)
  181.  
  182. (set #opts
  183.     (askchoice
  184.       (help @askchoice-help)
  185.       (prompt #copy-docs)
  186.       (choices #choice-yes #choice-no)
  187.       (default 0)
  188.     )
  189. )
  190.  
  191. (if (= #opts 0)
  192. (
  193. (if (not(exists(tackon @default-dest "update-docs/Update_Docs.htm")))
  194.  (copyfiles (source"update-docs/Update_Docs.htm") (dest (tackon @default-dest "update-docs")))
  195. )
  196. (if (not(exists(tackon @default-dest "update-docs/Tweaking.htm")))
  197.  (copyfiles (source"update-docs/Tweaking.htm") (dest (tackon @default-dest "update-docs")))
  198. )
  199. (if (not(exists(tackon @default-dest "update-docs/thf_install.htm")))
  200.  (copyfiles (source"update-docs/thf_install.htm") (dest (tackon @default-dest "update-docs")))
  201. )
  202. (if (not(exists(tackon @default-dest "update-docs/warpos_install.htm")))
  203.  (copyfiles (source"update-docs/warpos_install.htm") (dest (tackon @default-dest "update-docs")))
  204. )
  205. )
  206. )
  207. (complete 80)
  208. (if (not(exists(tackon @default-dest "update-docs/README")))
  209. (copyfiles (source"README") (dest (tackon @default-dest "update-docs")))
  210. )
  211. (if (not(exists(tackon @default-dest "update-docs/LICENSE")))
  212. (copyfiles (source"LICENSE") (dest (tackon @default-dest "update-docs")))
  213. )
  214.  
  215. (complete 100)
  216. (delete (tackon @default-dest "update-cookie"))
  217. (set #opts
  218.     (askoptions
  219.     (help @askoptions-help)
  220.     (prompt (#finish-msg @default-dest))
  221.     (choices #see-readme)
  222.     (default 1)
  223.     )
  224. )
  225.  
  226. (if (IN #opts 0)
  227.     (if (>= #ver 44)
  228.     (showmedia "readme" "README" "upper_right" "medium" 1)
  229.     (run "sys:Utilities/Multiview README")
  230.     )
  231. )
  232.  
  233.